home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / COOLVIEW.ZIP / VIEW50_4.ASM < prev    next >
Assembly Source File  |  1995-03-05  |  597b  |  35 lines
  1. ; View 50-lines screen in Text Mode
  2. ; Coded '95 by Paradise, 1995.III.3
  3. ; Lublin, Poland
  4. ; paradise@bachus.umcs.lublin.pl
  5. ;
  6. ; Example : OBJ usage example
  7. ;
  8. ; Need : view50_3.obj
  9. ;
  10. ; Compile : tasm view50_4.asm
  11. ;           tlink /t view50_4.obj view50_3.obj, view50_4
  12. ;
  13.  
  14. Extrn Body: far
  15.  
  16. Code  SEGMENT PARA PUBLIC 'CODE'
  17.       ASSUME CS:Code, DS:Code
  18.       Org 100h
  19.  
  20. Body2 PROC FAR
  21.       call Body
  22. repeat:
  23.       in al,60h
  24.       cmp al,1
  25.       jne repeat
  26.       mov ax,3h
  27.       int 10h
  28.       mov ah,4ch
  29.       int 21h
  30.       ret
  31. Body2 ENDP
  32.  
  33.  
  34. Code  ENDS
  35.       END Body2